home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / mcf4amirc / rexx / nfk.amirx < prev    next >
Text File  |  1996-09-17  |  653b  |  10 lines
  1. /* NFK.AMIRX
  2. // $VER: NFK.AMIRX 4.4 (24.08.96) (MCF Extra command)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. //
  5. \\ ** What to do with this file?   Put this script in REXX:
  6. //    then type  /rx NFK #
  7. \\  where # is the number of nick flooders you want kicked.
  8. //  This script is also used by MKB.AMIRX
  9. */
  10. ;arg kcnt junk;if kcnt=""| datatype(kcnt) ~='NUM' then kcnt=1;cntk=0;options results;getchannel;CurCh=result;do cnt=1 by 1 until cntk=kcnt|j3=":MKB_Done";getline;parse value line with j1 j2 z j3 j4;if line.command='NICK' then;do;cntk=cntk+1;y=substr(z,2);"say /kick "CurCh y "Kicked because of NICK Flooding!";end;end cnt;exit